perm filename TLAP.MIC[VLI,LSP] blob sn#382076 filedate 1978-09-08 generic text, type T, neo UTF8
.R VLISP
*
* ; definition de la fonction ONEP      ;
* ; equivalent VLISP :                  ;
* ; (DE ONEP (X) (EQP X 1))             ;
*         
*(LAP '((ENTRY	ONEP SUBR 1)
*	(CAIE	A1 '1)
*	(TDZA	A1 A1)
*	(MOVEI	A1 'T)
*	(POPJ	P) )
*     T)
*